Imports Owner.Framework.Data
Imports Owner.Framework.Data.DataFunctions

Namespace Tafi.VisionColor.DataService

    Public Class DepartmentsDS

        Public Function GetAll() As Data.DataTable
            Dim args As QueryArgs
            Try
                args = New QueryArgs
                args.ConnectionKey = Owner.Framework.Configuration.SettingsManager.GetValue("Hera")
                args.ProcedureName = "GROUP_REASONSGetAll"

                Return ExecuteDataTable(args)
            Finally
                args = Nothing
            End Try
        End Function


        Public Function GetReasonsByDep(ByVal pGroupId As Integer) As Data.DataTable
            Dim args As QueryArgs
            Try
                args = New QueryArgs
                args.ConnectionKey = Owner.Framework.Configuration.SettingsManager.GetValue("Hera")
                args.ProcedureName = "web_TICKETS_REASONSGetByGroupEnables"
                args.Parameters.Add("pGroupId", pGroupId)

                Return ExecuteDataTable(args)
            Finally
                args = Nothing
            End Try
        End Function

    End Class

End Namespace
